home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aaf.d64
/
chain-saw print
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
792b
|
28 lines
10 PRINTCHR$(14)
20 REM**READS SEQ FILE AND PRINTS TO PRINTER**
30 REM BY "[211]COTT [194]RUNS & [212]IM [194]ROWN"
40 REM "([195]) [194]&[194] [211]OFTWARE 1984"
45 PRINT"[147] [171][192][192] [194][160]&[160][194] [211][197][209][213][197][206][212][201][193][204][160][210][197][193][196][197][210] [192][192][179]"
50 PRINT" [198][201][204][197] [212][207] [210][197][193][196]":INPUTA$
60 PRINT"[211]END TO [208]RINTER (*[217]/[206])"
70 GETF$:IFF$=""THEN70
80 IFF$="N"THENP=0:GOTO100
90 P=1
100 OPEN15,8,15
110 OPEN8,8,8,A$+",S,R":SS=ST:GOSUB160
120 CLOSE4:OPEN4,4,7
130 GET#8,B$:SS=ST:IFSS>0 THEN 170
140 PRINTB$;:IFP=0THEN130
150 PRINT#4,B$;:GOTO130
160 IFSS=0THENRETURN
170 IF SS=64 THENPRINT: PRINT"[197]ND OF FILE":GOTO210
180 PRINT"[201]/[207] [197]RROR"
190 INPUT#15,A,D$,D,E
200 PRINTA,D$
210 CLOSE8:CLOSE15
220 PRINT"[193]NOTHER [198]ILE (*[217]/[206])"
230 GETC$:IFC$=""THEN230
240 IFC$="N" THEN SYS64738
250 A$="":B$="":C$=""
260 GOTO50